home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / PCLOGO / LOGO / SQUIRAL.LG_ / SQUIRAL.LG
Encoding:
Text File  |  1994-05-22  |  523 b   |  29 lines
  1. TO SQUIRAL :SIDE :ANGLE
  2.     IF :SIDE > 270 THEN STOP
  3.     FD :SIDE RT :ANGLE 
  4.     SQUIRAL :SIDE + 5 :ANGLE + 0.12
  5. END
  6.  
  7. TO SETUP.SQUIRAL :PC.START
  8.     HOME CLEAN
  9.       FS
  10.     TELL [0 1 2 3 4 5]
  11.     ST
  12.     EACH [RT 10 * WHO SETPC WHO + :PC.START]
  13.     SETWIDTH 4
  14.       FS
  15. END
  16.  
  17. SETUP.SQUIRAL 1
  18. SQUIRAL 5 90
  19. wait 100 ;MAKE "GET.INPUT RC
  20. SETUP.SQUIRAL 6
  21. SQUIRAL 2 150
  22. wait 100 ;MAKE "GET.INPUT RC
  23. SETUP.SQUIRAL 10
  24. SQUIRAL 3 70
  25. wait 100 ;MAKE "GET.INPUT RC
  26. SS
  27. CT
  28. PRINT [ALL THESE DRAWINGS WERE MADE WITH ONE THREE\-\LINE PROCEDURE!]
  29.